Serological Analysis

2022-09-27

Import data

ffi_total <- readRDS("01_data/processed/ffi_total.rds")

Format data

ffi_tidy <- ffi_total %>%
  drop_na(age, gender) %>%
  pivot_longer(
    cols = c(pf_recent, pv_recent),
    names_to = "typeofplasmodium",
    values_to = "seropositive"
    ) %>%
    mutate(
        seropositive = case_when(
            seropositive == "Positive" ~ 1,
            TRUE ~ 0
        )
    )
ffi_tidy %>%
  rmarkdown::paged_table()